#!perl -T

use strict;
use warnings;
use Test::More tests => 2;;
use Test::BoostUnit  qw(:ALL);

like(makeComment ("Content1"), qr|<!--\s*Content1\s*-->\s*|ms, "makeCDATA - One Message");
like(makeComment ("Content1", "Content2"), qr|<!--\s*Content1\s*Content2\s*-->\s*|ms, "makeCDATA - Two Messages");
